home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Opus5.5 / ARexx.lha / ARexx / xpkclick.dopus5 < prev   
Text File  |  1996-06-13  |  1KB  |  44 lines
  1. /* Custom kludge for my personal use to view xpk packed files.
  2.    by Leo 'Nudel' Davidson for Gods'Gift Utilities
  3.    email: leo.davidson@keble.oxford.ac.uk  www: http://users.ox.ac.uk/~kebl0364
  4.  
  5.    This script will be obsolete when my xpk.module is written.
  6.    As this script requires PackX it is not for release, at least not before
  7.    it is tidied up and made more general (which probably won't happen).
  8.  
  9.    {Qp} {Ql} {Qs} {s} {o}
  10. */
  11.  
  12. tempdir = "Goodies:Spool/"        /* Must end with ":" or "/" */
  13.  
  14. options results
  15. options failat 99
  16. parse arg DOpusPort source screen '"' sourcedir '" "' filename '"'
  17.  
  18. If DOpusPort="" THEN Do
  19.     Say "Not correctly called from Directory Opus 5!"
  20.     Say "Load this ARexx script into an editor for more info."
  21.     EXIT
  22.     END
  23. If ~Show("P",DOpusPort) Then Do
  24.     Say DOpusPort "is not a valid port."
  25.     EXIT
  26.     End
  27.  
  28. Address Command
  29. tempfile = '"'tempdir||filename'"'
  30.  
  31. 'Copy "'sourcedir||filename'"' tempfile
  32. "Protect" tempfile "+drw"
  33. "PackX File" tempfile "PRI 3 GUI PUBSCR" screen
  34.  
  35. Address value DOpusPort
  36. "Command wait doubleclick" tempfile
  37.  
  38. Call Delay(50)
  39.  
  40. Do while ~Delete(Strip(tempfile,B,'"'))
  41.     Delay(30)
  42.     End
  43. EXIT
  44.